(perldb): Supply visited file name, or -e 0, as default args.

diff --git a/lisp/gud.el b/lisp/gud.el
index 1d5f50b26829ee05967a13c3c6330b759223f5f5..eb0a403dabb22de1633e032834ece280c6174fd3 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1007,7 +1007,11 @@ and source-file directory for your debugger."
    (list (read-from-minibuffer "Run perldb (like this): "
                               (if (consp gud-perldb-history)
                                   (car gud-perldb-history)
-                                (concat perldb-command-name " "))
+                                (concat perldb-command-name
+                                        " "
+                                        (or (buffer-file-name)
+                                            "-e 0"))
+                                        " ")
                               nil nil
                               '(gud-perldb-history . 1))))